(Fparse_partial_sexp): Correct test for element 8 to be

non-nil.

diff --git a/src/syntax.c b/src/syntax.c
index af2554b3e850fabb124106b427764a3ba3527ed5..da41de6d5a7911b545c9e2d49f4b9606e522bd15 100644 (file)
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -2713,7 +2713,8 @@ DEFUN ("parse-partial-sexp", Fparse_partial_sexp, Sparse_partial_sexp, 2, 6, 0,
                               ? (state.comstyle == ST_COMMENT_STYLE
                                  ? Qsyntax_table : Qt) :
                               Qnil),
-                             Fcons ((state.incomment || state.instring
+                             Fcons (((state.incomment
+                                      || (state.instring >= 0))
                                      ? make_number (state.comstr_start)
                                      : Qnil),
                                     Fcons (state.levelstarts, Qnil))))))))));